COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00005 ENDMK
C⊗;
PRECEDE;
FUNCTION STERO;
	BEGIN	P7←1;	P6←F6;
	IF P3 > CS THEN BEGIN  PRINT " LEFT ";
		P7←0;  P6←F4;  END
	ELSE PRINT " RIGHT ";	
        IF P2 > 1 THEN P6←F4; END;
 
INSTRUMENT STERA;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERB;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERC;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERD;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERE;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERF;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERG;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERH;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERI;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
INSTRUMENT STERJ;    
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
NCHNS←2;
*
 
STERA  0 10;
P2 RHY/20X5/8./16/4./16//12///8/;
     P2 1 .09 .5;
P3 1 C2 C6;
P4  500;
P5 F1;
P8 NAMES/10;
P9 DF 1  1 2;
P10 "STERO";
END;